Public Class PuntosEstaticos
    Public Shared puntos As New ArrayList()
    Public Shared Sub cargarPuntos()

        Dim punto As Point

        '1

        punto = New Point(310, 20)
        PuntosEstaticos.puntos.Add(punto)

        '2
        punto = New Point(410, 20)
        PuntosEstaticos.puntos.Add(punto)

        '3
        punto = New Point(160, 70)
        PuntosEstaticos.puntos.Add(punto)
        '4
        punto = New Point(560, 70)
        PuntosEstaticos.puntos.Add(punto)
        '5
        punto = New Point(60, 170)
        PuntosEstaticos.puntos.Add(punto)
        '6
        punto = New Point(660, 170)
        PuntosEstaticos.puntos.Add(punto)
        '7
        punto = New Point(20, 270)
        PuntosEstaticos.puntos.Add(punto)
        '8
        punto = New Point(700, 270)
        PuntosEstaticos.puntos.Add(punto)
        '9
        punto = New Point(10, 370)
        PuntosEstaticos.puntos.Add(punto)
        '10
        punto = New Point(710, 370)
        PuntosEstaticos.puntos.Add(punto)
        '11
        punto = New Point(60, 470)
        PuntosEstaticos.puntos.Add(punto)
        '12
        punto = New Point(660, 470)
        PuntosEstaticos.puntos.Add(punto)
        '13
        punto = New Point(160, 570)
        PuntosEstaticos.puntos.Add(punto)
        '14
        punto = New Point(560, 570)
        PuntosEstaticos.puntos.Add(punto)
        '15
        punto = New Point(360, 620)
        PuntosEstaticos.puntos.Add(punto)

    End Sub

    Public Shared Sub cargarPuntosDinamicos(ByVal matPuntos As Array)
        puntos.Clear()

        Dim punto As Point
        Dim x As Integer
        Dim y As Integer

        For i As Integer = 0 To matPuntos.GetUpperBound(0)
            x = matPuntos(i, 0)
            y = matPuntos(i, 1)
            punto = New Point(x, y)
            PuntosEstaticos.puntos.Add(punto)
        Next
    End Sub
End Class
